/* This procedure was given to me by Wouter van Oortmerssen, the Amiga E author.
It replaces the DoMethod() function (included in the amiga.lib library) for E users. */
PROC doMethod( obj:PTR TO object, msg:PTR TO msg )
DEF h:PTR TO hook, o:PTR TO object, dispatcher
IF obj
o := obj-SIZEOF object /* instance data is to negative offset */
h := o.class
dispatcher := h.entry /* get dispatcher from hook in iclass */
MOVEA.L h,A0
MOVEA.L msg,A1
MOVEA.L obj,A2 /* probably should use CallHookPkt, but the */
MOVEA.L dispatcher,A3 /* original code (DoMethodA()) doesn't. */
JSR (A3) /* call classDispatcher() */
MOVE.L D0,o
RETURN o
ENDIF
ENDPROC NIL
From donews!crash!plucky.ike.safb.af.mil!bwills Thu, 17 Feb 94 08:43:57 PST
Received: by bkhouse.cts.com (V1.17-beta/Amiga)
id <1urf@bkhouse.cts.com>; Thu, 17 Feb 94 08:43:57 PST
Received: from crash by donews.cts.com with uucp
(Smail3.1.28.1 #18) id m0pWryG-0001v8C; Wed, 16 Feb 94 14:31 EST
Received: from kirk.safb.af.mil by crash.cts.com with smtp
(Smail3.1.28.1 #18) id m0pWraG-0000GYC; Wed, 16 Feb 94 11:06 PST
Received: from ike (ike [140.175.6.44]) by kirk.safb.af.mil (8.6.4/8.6.4) with SMTP id NAA11874 for <AmigaE@bkhouse.cts.com>; Wed, 16 Feb 1994 13:06:15 -0600
Received: from plucky.safb.af.mil by ike (4.1/SMI-4.1)